perm filename TEST.SAI[1,BGB] blob
sn#103898 filedate 1974-05-26 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "TEST"
C00003 ENDMK
C⊗;
BEGIN "TEST"
REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
ITG I,J,K,DEL;
REAL X,Y;
SAFE ITG ARRAY BUF[0:3000];
OPEN(1,"DSK",8,0,3,0,0,0);
ENTER(1,"MUSIC.MUS",0);
K ← POINT(12,BUF[0],-1);
FOR I←0 THRU 150 DO
BEGIN
J ← 2047*SIN(I*2*π/150);
IDPB(J,K);OUTSTR(CVS(J)&↓);
END;
FOR I←1 THRU 600 DO
ARRYOUT(1,BUF[0],50);
RELEASE(1);
END "TEST";